function figout = zambia_figPartComp(sd_F1vec,mP,mPComp,mPN,mW,mPProf0,mProf0_C,sdf1)



%Graphs with baseline values of welfare parameters
set(0,'DefaultAxesFontName', 'Garamond')
set(0,'DefaultAxesFontSize', 16)

% Change default text fonts.
set(0,'DefaultTextFontname', 'Garamond')
set(0,'DefaultTextFontSize', 16)

figout=figure('Name','Figure X: Take-up/Follow-through Varying Uncertainty','NumberTitle','off','Position',[0, 0, 1200, 725]);
set(figout, 'PaperOrientation', 'landscape','Color', 'w')
subplot(2,2,1)

plot(sd_F1vec',mP(:,1),'--ok',sd_F1vec',mP(:,2),'k-'),...
    title('A. Take-up, R=0'),axis([0 500 0.0 1.01]),ylabel('Take-up (percent)')
    legend('Take-up: A=0   ','Take-up: A=12   ','Location','southeast');
hold on
line([sdf1,sdf1],[0.005,1],'LineStyle',':','Color',[0.8,0.8,0.8])
hold off
sub_pos = get(gca,'position'); % get subplot axis position
set(gca,'position',sub_pos.*[1 1 1.09 1.05]) % stretch its width and height

subplot(2,2,2)

plot(sd_F1vec',mP(:,3),'--ok',sd_F1vec',mP(:,4),'k-'),...
    title('B. Take-up, R=150'),axis([0 500 0.0 1.01])
    legend('Take-up: A=0   ','Take-up: A=12   ','Location','southeast');
hold on
line([sdf1,sdf1],[0.005,1],'LineStyle',':','Color',[0.8,0.8,0.8])
hold off
sub_pos = get(gca,'position'); % get subplot axis position
set(gca,'position',sub_pos.*[1 1 1.09 1.05]) % stretch its width and height

subplot(2,2,3)

plot(sd_F1vec',mPComp(:,1)./mP(:,1),'--ok',sd_F1vec',mPComp(:,2)./mP(:,2),'k-'),...
    title('C. 35+ trees, R=0'),axis([0 500 0.0 1.01]),xlabel('Uncertainty (standard deviation of F1)'),ylabel('35+ trees (percent)')
    legend('35+ trees given take-up: A=0   ','35+ trees given take-up: A=12   ','Location','northeast');
hold on
line([sdf1,sdf1],[0.005,1],'LineStyle',':','Color',[0.8,0.8,0.8])
hold off
sub_pos = get(gca,'position'); % get subplot axis position
set(gca,'position',sub_pos.*[1 1 1.09 1.05]) % stretch its width and height

subplot(2,2,4)

plot(sd_F1vec',mPComp(:,3)./mP(:,3),'--ok',sd_F1vec',mPComp(:,4)./mP(:,4),'k-'),...
    title('D. 35+ trees, R=150'),axis([0 500 0.0 1.01]),xlabel('Uncertainty (standard deviation of F1)')
    legend('35+ trees given take-up: A=0   ','35+ trees given take-up: A=12   ','Location','southeast');
hold on
line([sdf1,sdf1],[0.005,1],'LineStyle',':','Color',[0.8,0.8,0.8])
hold off
sub_pos = get(gca,'position'); % get subplot axis position
set(gca,'position',sub_pos.*[1 1 1.09 1.05]) % stretch its width and height
end